home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n03.arc / WHATEVER.EX1 < prev    next >
Text File  |  1989-01-18  |  457b  |  20 lines
  1. PROGRAM Whatever;
  2.  
  3. USES Crt, TAccess, AddCust, DelCust, DispCust, Menu;
  4.  
  5. VAR QuitFlag : Boolean;
  6.  
  7. BEGIN
  8.   Initialize;
  9.   QuitFlag := False;
  10.   REPEAT
  11.     CASE GetMenuChoice OF
  12.       1 : AddACustomer;           { This routine is in AddCust }
  13.       2 : DeleteACustomer;        { This routine is in DelCust }
  14.       3 : DisplayACustomer;       { This routine is in DispCust }
  15.       4 : QuitFlag := True
  16.     END
  17.   UNTIL QuitFlag;
  18.   Cleanup
  19. END.
  20.